home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-11-11 | 1.4 KB | 68 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="2"
- "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
- "NAME"="Visio 2000 Misc Settings"
- "VERSION"="1.10"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Macro Virus Protection."
- "TEXT 2"="Bitmap Caching"
- "DESCRIPTION 1"="To enable Macro Virus Protection, check Box 1. Default is disabled [unchecked box]."
- "DESCRIPTION 2"="To disable Bitmap Caching, check Box 2. Default is enabled [unchecked box]."
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
- "COMMENT 2"="Thanks to CptSiskoX for the tip and settings."
-
-
- sP="HKCU\Software\Visio\Visio 2000\application\"
- sV1="MacroVirusProtection"
- sV2="TurnOffBitmapCache"
-
- Sub Plugin_Initialize
- if RegPathExists(sP) then
- i=RegReadValue(sP & sV1)
- if i=1 then SetUiElement 1,true
-
- i=RegReadValue(sP & sV2)
- if i=1 then SetUiElement 2,true
-
- else
- Call Disable()
- end if
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- i="1"
- else
- i="0"
- end if
- Call RegWriteValue(sP & sV1,i,1)
-
- b=GetUIElement(2)
- if b=true then
- i="1"
- else
- i="0"
- end if
- Call RegWriteValue(sP & sV2,i,1)
-
-
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-